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STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
1222+CE EQU = 42 10 2 CYCLF STEAL STATUS INERRRUPT ERROR 
1223+ISBON FOU 43 11 1 ISB BITS ON (1-7) 
12244NG FOU 864g 12 8 TEST UNIT RESULTS NO GOOD 
1225+Tocc EQU 45 13 4 OTO CC ERROP 
1226+NOIN EQU 46 14 2 NO INTERRUPT 
1227+INCC EGU 47 15 1 INTEPRUPT CC ERROR 

+ 
1229+% COMMON BUFFER FOR PRINTING DATA 

+ 
12324+STUID DC A (*-* TEST UNIT IDENTIFICATION 
1233+SI0IN DC A (*¥—* I/O AND INTR CONDITION CODES 
12344$ITSB_ DC A (*-* INTR STATUS BYTE & DEV ADRS 
1235+LSTIO DC A (*-* ADRS OF LAST T7O #4 BYTES 
12364+DEV1 DC A (*-* DFVICE DEPENDENT DATA 
1237+DEV2 DC A (*-* * 
1238+DEV3 DC A (*-* * 
12394+DEV4 DC A (*-* * 
1240+SCTID FOU DEVI PEAD ID BUFFER FOR IBIS & TEPN 
1241+DCRUF FOU * DCB BUFFER FOR LAST DCE USED 
12424+DCB1 DC A (*-* LAST DCF TABLE, CONTROL WORD 
12434+DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
12444+DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
1245+DCB4 DC A (*-* LAST DCB TAPLE, DEV DEP WORD 
12464+DCB5 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
12474+DCB6 DC A (*—%* LAST DCB TABLE, CHAIN ADRS 
12484+DCB7 DC A (*—% LAST DCR TAELE, BYTE COUNT 
1249+DCBS DC A (*-% LAST DCB TABLE, BUFFER ADDRESS 
1251+CSBUF EQU * CYCLE STEAL DATA BUFFER 
1252+CSTL1 DC A (*-* CYCLE STFAL BUFFER, RESIDUAL ADPS 
12534CSTL2 DC Rh (*-* CYCLE STEAL WD 2, DEVICE DEPEND 
1254+CSTL3 DC A (*-%* CYCLE STEAL WD 3, DEVICE DEPEND 
12554+CSTL4 DC A (*-% CYCLE STEAL WD 4, DEVICF DEPEND 
1256+CSTL5 DC BR (*-* CYCLE STEAL WD 5, DEVICE DEPFND 
12574+CSTL6 DC Rh (*-* CYCLE STEAL WD 6, DEVICE DEPEND 
12584+CSTL7 DC Rh (*-* CYCLE STEAL WD 7, DEVICE DEPEND 
1259+CSTLB DC Bh (*- CYCLE STEAL WD 8, DEVICE DEPEND 

+ 
1261+$SUBN DC A (*-* LAST SUBROUTINE ADDRESS USED 
12624+SDATA DC 2A (*-* OPTIONAL DATA 
12634$INTL DC x"0021" TNTERRUPT LEVEL REQUESTED 
1264+TURTN DC A(x *) TEST UNIT PETUPN ADPS TO MDI 
1265+$DVID DC X"OOR2! DEVICE ID 
1266+SVCAL DC A (DEVADD) ADRS OF DEVICE ADDPESS 
1267+ DC A (#-*) IBIS CYLINDER ADDRESS 

+ 
1269+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 
1270+* FUNCTION. THE RESULTS THAT WERE SET UP IN THF RESULTS AREA ARE 
1271+ STILL VALID BUT A DIFFEPENT TEST IS TO BE PEPFORMED. 

+ 
1273473002 MVHT Xt3C02",STUID SET UP TFST UNIT ID 
1274s BXS e PETURN TO MDI SUPVR 
1277 EE Oe ee Oe RTE POT TT ETE Sere eT ee he rr re 
1278 * * 
1279 * EQUATED NAMES FOP SUPPOPTED SVC'S * 
D281 RK He He a ee He a i ee 2 2 ae fe tee ok 2 a 2 a a ic 2 ok oe 2k 2 2 ea ee a ic oie 2 ic ke 2k 2 Rk ok a ok ie 2c kc 2 2 
1282 OUT EQU 0 ouT svc 
1283 OUTIN FOU 1 OUTIN SVC 
1284 IDLE EQU 2 IDLE SVC 
1285 ASCII EQU 3 HEX TO ASCII SVC 
1286 CHNGE FOU) 4 CHANGE LEVEL SVC 
1287 PGMCK BQU 5 ALLOW RETURN ON PROGPAM CHFCK SVC 
1288 EXIT EQU 6 EXTT SVC 
1289 TERM EQU 7 TERMINATE SVC 
1290 RESET FOU -8 RESET DEVICE SVC 
1291 PI EOU 9 PFAD TD SVC 
1292 START EQU 10 START CYCLE STEAL SVC 
1293 STCSS EQU 11 START CYCLE STEAL STATUS SVC 
1294 PREP EQU 12 PREPARE DEVICE SVC 
1295 READO EQU) 13 READ WITH FUNCTION BIT 3 OFF SVC 
1296 READ1 EOU 14 PEAD WITH FUNCTION BIT 3 ON SVC 
1297 RSTAT EQU 15 READ STATUS SVC 
1298 WRITO EOD 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
1299 WRIT? EOU 17 WPITE WITH FUNCTION BIT 3 ON SVC 
1300 CTRL EQU 18 CONTFOL SVC 
1301 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 
1302 CICB EOQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
1303 HIO  EQU 21 HALT ALL 1/0 
1304 REQSD EQU 22 REQUEST USE OF DCP DISK SVC 
1305 RELSD EQU 23 FELEASE USE OF DCP DISK SVC 
1306 HAIT FOU 24 HALT SVC 
1307 ETOH EQU 25 FECDIC TO HEX SVC (STRING 
1308 HTOE EOQU 26 HEX TO EBCDIC SVC (STRING 
1309 ATOH EQU 27 ASCII TO HEX SVC (STRING 
1310 HTOA EQU 28 HEX TO ASCII SVC (STPING 
1311 ETOA EQU 29 EBCDIC TO ASCII SVC ere NG 
1312 ATOE EQU 30 ASCIT TO EBCDIC SVC (STRING 
1313 READI EQU 31 READ DATA SETS FOR MDI/UTIL 
1314 WRITI EQU 32 WRITE DATA SETS FOR UTI 
V3.1 6 Me Re MK He he ee I he ee Oe i ee a he ee 2 ek ee fe he fe 2 he 2 i 2 2 ae 2 2 fe eae ae ac ae he he oe ae he ok te ae koe fe ok 
1317 * * 
1318 * EQUATES USED BY TU'S BS CONSTANTS : 
VB DO em MK ee he ea ee ee he fe he hee fe ka ae 2 eee he he ek he 2 he he he fee heat a a ik ae af ae ae a fe fe fe ae fe ae oe ie ae ke he fe ae ae ae he ake oe ok 
1321 PLUS EQU C+! PLUS CHAR 
1322 MINUS EOQU C!-! MINUS CHAR 
1324 ZERO EQU 0 
1325 ONE EQU 1 
1326 TWO EQU 2 
1327 THREE FOU 3 
1328 FOUR EOQU 4 
1329 FIVE FOU 5 
1330 STX EQU 6 
1331 SEVEN EQU 7 
1332 EIGHT EQU- 8 
1333 NINE EQU 9 
1336 TEN EOU 10 
1335 ELEVN EQU 11 11 
1336 TWELV FOU 12 12 
1337 THRTN FOU 13 13 
1338 FIVIN EQU 15 15 
1339 SIXTN EQU 16 16 
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STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
1340 THRY2 EQU 32 32 
1341 SIXTU FOU 64 64 
1342 ONE28 EOU 128 128 
1343 TWOS6 EQU 256 256 
1344 ONEK EQU 1024 1024 
1345 TWOK EOU 2048 2048 
1346 THREK EOU 3072 3072 
1347 FOUPK EQU 4096 4096 
1349 M1 EOU so -1 -1 
1350 M2 EOU -2 =3 
1351 M3 E0OU -3 = 
1352 m4 EOU -4 -4 
1354 oS ee Se LSS SS SESS SESS SSL SSE SSS SS SS SPE LSS SSE LSS SSS SSL SS SSLSStSE SESE SES ES FFs F | 
1355 * * 
1356 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
1357 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. : 
1359 PSPSPS SLES SS SSLSL SS SESSSESSSSSESFSSSLSSSLSS SSS SLES ESL SSS ESSESLS SSS SE SESS SS SES FS FF | 
1360 BSO EQU. O 
1361 BS1 EOU 1 
1362 BS2 EOU. 2 
1363 BS3. E00. 3 
1364 BS4 EOU 4 
1365 BSS EQU 5 
1366 BS6 EOU 6 
1367 BS? EOU 7 
1368 BS8 EQU. 8 
1369 BS9 EGU 9 
1370 BS10 EOU 10 
1371 BS11 EGU. 11 
1372 BS12 EQU 12 
1373 BS13 EOU 13 
1374 BS14 EOU 14 
1375 BS15 EOU 15 
1377 COPY T7808 
1378 T7808 TUIT SERRS 
VT DH RK A HH He HH eH He He He eK Oe i ee i ee ee ee ee ee ee 2c i a i i a ok ie kK KKK KK OEP EBT 6 ** 
1380+%* 
1381+* TEST UNIT 
1382+* 

138344 4962 CYCLE STEAL STATUS 5/11/77 
+ 
1385+* EURPOSE 
1386+% 
1387+% 
1388+* CALLING SEQUENCE 
1389+* 
139044 ROUTINE WILL FORCE A CYCLE STEAL STATUS OP. 
+ 
1392+* PROGPAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 
13934% : TURESUL BIT 0-15--------- NOT USED 
1394+% E TURESUL RIT 16-31 ------ CYCLE STEAL STATUS FOR FAILING OP 
13954+* : TURESUL BIT 32-47 ------ CC - 32-39 oTO CC,40-47 INT CC 
1396+% TURESUL BIT 48-63 ------ IBS 
13974% : TURESUL BIT 64-79 ------ OPTION WORD 3 (ERROR INDICATORS) 
+ Ps 
1399+* 
1400+* RETURN CONTROL 
14014+* 
140 24% B TURTN* RETURN TO MDI SUPERVISOR 
+ 
VOY HM Me He eH eK He He Ke eK a 2 fe 2h he Hee oe i ae ae oe fe ee ea 2c ic he a 2 i ae oe he Hee a eo ee a ee ok ok eK I K fc 
1405+T7808 MVYW 7, TURTN SAVE RETURN ADDRESS 
1406+ MVWI xX'4808' $TUID SAVE TU ID FOR DISPLAY 
1407+ MVA OPTN1, Ri SET UP POINTER ADRS IN R4 
1408+ BAL  $CONC? CLEAR DEV DEP STG AND CONNECT I/O BL 
14994 DC A (SEER S) ERROR ADRS FOR INVALID PREP 
+ 
1411 MVWZ TURESUL,R2 CLEAR PESULTS WORD 
1412 MVWZ TURESUL+2,P2 CLEAR RESULTS WORD 2 
1413 MVWZ TURESUL+4,R2 CLEAR RESULTS WORD 3 
1414 MVHZ TURESUL+6,P2 CLEAR PESULTS WORD & 
1415 MVWZ TOUPESUL4+8.P2 CLEAP PESULTS WORD 5 
1416 MVA TURESUL,FBO ADDRESS OF RESULTS WORD 
1417 MVA TOBLK,®7 RESET DEVICE 
1418 SVC RESET 
1419 BAL xXTOCS,R6 CYCLE STEAL STATUS TO CRUSE INTER 
1420 DC A (SERBS) EPPOR 
1421 TBTR cr: EP) TNTERRUPT ERROR? 
1422 BON YES 
1423 MVW cenLs, TURESUL+2 CYCLE STEAL STATUS FOR FAILING OP 
1424 MVW S$IOTN, TURESUL44 CONDITION CODES 
1425 MVW $ISB,TUPESUL+6 ISB 
1426 NV OPTN3, TURESUL+8 OPTION WORD 3 (CONDITION CODES) 
1428+ B $CON X PETURN TO MDI CONTROLLEP 
FY DO 4 HH HK He We He He he He He HK Ke He ie i ae he a a A ee ae he 2 2h a ac 3 2h fe oe ate ie 2 ee ic ae 3c He ae he he he 2 of oc he oh oi eae 2c 2c oe ok 
1430 * 
1431 * 
1433 COPY T78DCB 
1434 ** (T78DCB) 
1435 Fe eH A HE He He He ee ee He ee ee He eR Re RR A ee ae eK a a i ee ae KT] D1 7 6 EK 
1436 * 
1437 * DCB TABLES AND DCtS 
VSD I ee he he ee 2 a 2 a ae oi ie Re ae He of ie he ate he he hk ee he fe i ae he ik fe fe ae ae ae ae ie ae i ae 2c ale hc ac acc ok ak ak ok 
1440 
1441 
1442 
1443 DGDCB DC X¥'2008! DIAGNOSTIC DCB 
1444 DC X¥'0000! NOT USED 
1445 DC A (*4) 0-7 = PHYSICAL SECTOP # MINUS ONE 
1446 DC X'00008 NOT USED 
1447 DC X*'0000! NOT USED 
1448 DC A (#-*) CHAINING ADDRESS 
1449 DC X¥'0100" BYTE COUNT 
1450 DC A (*-*) DATA ADDRESS 
1651 * 
1452 * 
1453 eee" RECALIBRATE DCB #4#44#+% 
1455 CLDCB DC X'0007! PECALIBPATE DCB 
1456 DC TA (*#-*) 
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4962 P/N= 1635142 EC=755285 
CPOSS-REFERENCE LISTING 
ATTRIBUTES AND REFERENCES 
ABSOLUTE. HEX VALUE (00000000) 
1811. 1812 1813 1814 1818 1819 1820 1821 
ABSOLUTE. HEX VALUE (0000000 1) 
2303 2306 2309 2312 
ABSOLUTE. HEX VALUE (00000002) 
1411. 1412 1413 1614 1815 1416 2308 2309 
ABSOLUTE. HEX VALUE (00000003) 
1717. 1718 1759 1763 1765 1844 1846 1902 1905 
1909 1912 1923 1926 1939 1942 2012 2022 2025 
2026 2029 2031 2087 2088 2123 2129 2133 2163 
2168 2181 2211 2256 2258 2259 2267 2301 2302 
ABSOLUTE. HEX VALUE (00000004) 
1407 1421 2015 2016 2019 2033 2034 2036 2037 
2040 2046 2052 2124 2125 2127 2131 2135 2164 
2165 2166 2176 2177 2178 2180 2183 2193 2195 
2197 2200 2202 
ABSOLUTE: HEX VALUE (00000005) 
1760 1764 1765 1845 1846 1903 1905 1910 1912 
1924 1926 1940 1942 2023 2025 2027 2029 2045 
2050 2172 2173 2174 «2205 2206 2208 2257 2258 
ABSOLUTE. HEX VALUE (90000006) 
1408 1419 1685 1689 1691 1695 1697 1701 1704 
1708 1710 1714 1719 #1766 #1767 1806 1847 2021 
2041 2053 2089 2194 2199 2201 2207 2210 2212 
2262 2268 2270 2305 2310 2311 
ABSOLUTE, HEX VALDE (00000097) 
1274 1405 1417 #1758 1762 (1843 1904 1911 1925 
1941 2024 2028 2035 2128 2169 2255 22€0 2265 
2298 2308 2307 2319 2322 
jABBRESS. HEX LOCATION(000038AA) IN CSECT(I7802 ) LENGTH(2) 
ADDRESS. HEX LOCATION (0000392E) IN CSECT(I7802 ) LENGTH(1) 
ADDRESS. HEX LOCATION(000038DE) IN CSECT(I7802 ) LENGTH (6) 
1409. 1420 1422 
aRDDRESS. HEX LOCATION(00003410) IN CSECT(I7802 ) LENGTH(2) 
ADDRESS, HEX LOCATTON(0Q0033DC) IN CSECT(17802 ) LENGTH(2) 
1424 1718 2030 2088 2168 2205 
ADDRESS. HEX LOCATION (000033DE) IN CSECT(I7802 ) LENGTH (2) 
1425 2031 2169 2208 2267 
a ABSOLUTE. HEX VALUE (00000026) 
ADDRESS. HEX LOCATION(000033DA) IN CSECT(I7802 ) LENGTH(2) 
1273 1406 2318 2352 
> ADDRESS. HEX LOCATION (000019B8) IN CSECT(I7802 ) LENGTH (1) 
oADDRESS. HEX Sapte ny oe IN CSECT(I7802 ) LENGTH (1) 
ABSOLUTE. HEX VALUE (90000101 
573 576 579 600 603 606 627 #&42«©4630 £633 
654 657 660 681 #684 +687 #+=%+1708 $$711 «2714 
735 738 $741 +759 #=+762 #780 #783 + #«2.801 ~~ 804 
822 825 843 846 864 867 #2885 888 906 
909 924 927 
ABSOLUTE. HEX VALUE (00000100) 
567. 570 594 597 4621 624 648 #651 675 
678 702 705 729 £732 #756 #0777 + «2798 ~#« 819 
840 861 882 903 
ABSOLUTE. HEX VALUE (00000500) 
555 582 609 636 663 #690 717 #4744 °&#765 
786 807 828 $849 870 891 912 
oABRESS. HEX LOCATION (00003938) IN CSECT(I7802 ) LENGTH (2) 
>ABSOLUTE. HEX VALUE (00000080) 
a ADDRESS. HEX LOCATION(O0003A40) IN CSECT(I7802 ) LENGTH (2) 
ARBRESS. HEX LOCATION(0000355E) IN CSECT(I7802 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00003630) IN CSECT(I7802 ) LENGTH(2) 
1688 1694 1700 1707. 1713 
ABSOLUTE. HEX VALUE (0000002) 
2015. 2127 2197 
oABSOLUTE. HEX VALUE (00000014) 
ADDRESS. HEX LOCATION(0000348C) IN CSECT(I7802 )} LENGTH(2) 
ABSOLUTE. HEX VALUE (00000028) 
2016 2019 2125 2166 2195 
SABSOLOTE. HEX VALUE (00000029) 
ADDRESS; HEX LOCATION (000033FA) IN CSECT(I7802 ) LENGTH(1) 
a ADDRESS. HEX LOCATION (000034DC) IN CSECT(I7802 ) LENGTH (2) 
ABBPESS. HEX LOCATION(000033FC) IN CSECT(I7802 ) LENGTH (2) 
a ADDRESS, HEX LOCATION(00003408) IN CSECT(I7802 ) LENGTH(2) 
a ADDRESS. HEX LOCATION (000033FA) IN CSECT(I7802 ) LENGTH(1) 
a ADDRESS. HEX LOCATION (00003442) IN CSECT(I7802 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00001900) , IN CSECT (17802 or LENGTH (1) 
1266 1686 1692 1698 1 11. 2216 2225 2322 
ADDRESS, HEX LOCATION (000033E2) IN CSECT(I7802 ) LENGTH (2) 
ADDRESS. HEX LOCATION(0000347C) IN CSECT(I7802 ) LENGTH (2) 
ABSOLUTE. HEX VALUE (00000000) 
546 929 941 
ADDRESS. HEX LOCATION(0000286E) IN CSECT(I7802 ) LENGTH (1) 
ABSOLUTE. HEX VALE (00090021) 
1421 2033 2052 2135 2177 2202 
> ABSOLUTE. HEX VALUE (00000006) 
ADDRESS. HEX LOCATION(00003A46) IN CSECT(I7802 ) LENGTH (2) 
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V2e 

17 28 

17 30 

1722 

1724 
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2122 
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2162 

2184 
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FIVE9 
F00031 
F00038 
FOOO4S5 
F00059 
FOOO64 
F00067 
F00083 
FO00088 
F00091 
F00107 
FO00112 
FO00115 
F00131 
F00136 
F00139 
FO00155 
F00160 
F00163 
F00179 
FO0184 
F00187 
F00199 
FO00204 
FO00216 
FO00221 
F00233 
F00238 
FO00250 
F00255 
F00267 
F00272 
F90285 
F00290 
F00302 
F00307 
FQ0319 
F00324 
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